home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jedit_io.tcl < prev    next >
Encoding:
Text File  |  1995-02-08  |  4.4 KB  |  135 lines
  1. # jedit_io.tcl - file access procedures for jedit, a tk-based editor
  2. # 
  3. # Copyright 1992-1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non-profit, noncommercial use.
  6.  
  7. # TO DO
  8. #   abbrev fixes:
  9. #     maybe some heuristics for things like plurals
  10. #     maybe a syntax for suffixes (e.g., commit;t -> commitment)
  11. #   file_modes panel
  12. #   documentation for keybindings (automatic documentation?)
  13. #   problem with filename getting set when you cancel Save 
  14. #     for the first time on a new unnamed file
  15. #   improve find panel
  16. #     have find wrap around (if last time didn't match)
  17. #     regex search/replace
  18. #     find all at once (mark) and cycle through with tag nextrange
  19. #   gesture commands
  20. #   autobreaking space a problem if you use two spaces betw sentences
  21. #   word-end punctuation (and heuristics) sd be mode-specific
  22. #
  23. #   PROBLEM WITH CHANGING BINDINGS ON THE FLY!               (urgent)
  24.  
  25. # CHANGES:
  26. #   lots of binding changes (jbind*.tcl consistency)
  27. #     app-specific Emacs and vi bindings
  28. #   house(s) the s won't expand
  29. #   return key checkpoints!
  30. #   improved mode handling (hooks)
  31.  
  32. ######################################################################
  33.  
  34. ######################################################################
  35. # "Load..." with supplied filename
  36. ######################################################################
  37.  
  38. proc jedit:read { filename t } {
  39.   global JEDIT_MODEPREFS
  40.   set mode [jedit:get_mode $t]
  41.   if {! [info exists JEDIT_MODEPREFS($mode,savestate)]} {
  42.     set JEDIT_MODEPREFS($mode,savestate) 0
  43.   }
  44.   set mode [jedit:get_mode $t]
  45.  
  46.   if {[info procs mode:$mode:pre_read_hook] != {}} {
  47.     mode:$mode:pre_read_hook $filename $t
  48.   }
  49.   if {[info procs mode:$mode:read] != {}} {
  50.     mode:$mode:read $filename $t
  51.   } else {
  52.     if {! [file exists $filename]} then {
  53.       jedit:cmd:save_checkpoint $t        ;# in case you were editing sth
  54.       j:text:delete $t 1.0 end
  55.       j:text:move $t 1.0
  56.       jedit:set_label [jedit:text_to_top $t] "$filename (new file)"
  57.     } else {
  58.       jedit:cmd:save_checkpoint $t        ;# so you can undo a load
  59.       # should do error checking
  60.       j:text:delete $t 1.0 end
  61.       $t insert end  [j:fileio:read $filename]
  62.       j:text:move $t 1.0
  63.       #
  64.       if $JEDIT_MODEPREFS($mode,savestate) {
  65.         jedit:read_annotation $filename $t
  66.         jedit:yview_insert $t
  67.       }
  68.       jedit:cmd:save_checkpoint $t        ;# alows undo to original state
  69.     }
  70.   }
  71.   jedit:set_label [jedit:text_to_top $t]    ;# display name over text field
  72.   if {[info procs mode:$mode:post_read_hook] != {}} {
  73.     mode:$mode:post_read_hook $filename $t
  74.   }
  75. }
  76.  
  77. ######################################################################
  78. # write out a file
  79. ######################################################################
  80.  
  81. proc jedit:write { filename t } {
  82.   global JEDIT_MODEPREFS
  83.   set mode [jedit:get_mode $t]
  84.   if {! [info exists JEDIT_MODEPREFS($mode,savestate)]} {
  85.     set JEDIT_MODEPREFS($mode,savestate) 0
  86.   }
  87.   set mode [jedit:get_mode $t]
  88.   
  89.   if {[info procs mode:$mode:pre_write_hook] != {}} {
  90.     mode:$mode:pre_write_hook $filename $t
  91.   }
  92.   if {[info procs mode:$mode:write] != {}} {
  93.     mode:$mode:write $filename $t
  94.   } else {
  95.     # should do error checking
  96.     j:fileio:write $filename [$t get 1.0 end]
  97.     jedit:set_label [jedit:text_to_top $t]
  98.     #
  99.     if $JEDIT_MODEPREFS($mode,savestate) {
  100.       jedit:write_annotation $filename $t
  101.     }   
  102.   }
  103.   if {[info procs mode:$mode:post_write_hook] != {}} {
  104.     mode:$mode:post_write_hook $filename $t
  105.   }
  106. }
  107.  
  108. ######################################################################
  109. # write out non-text content of a file
  110. ######################################################################
  111.  
  112. proc jedit:write_annotation { filename t } {
  113.   set dirname [file dirname $filename]
  114.   set tail [file tail $filename]
  115.   set filename "$dirname/.state.$tail"
  116.   # should do error checking
  117.   j:fileio:write $filename [j:tag:get_annotation $t]
  118. }
  119.  
  120. ######################################################################
  121. # restore non-text content of a file
  122. ######################################################################
  123.  
  124. proc jedit:read_annotation { filename t } {
  125. ### NEEDS ERROR CHECKING!
  126.   set dirname [file dirname $filename]
  127.   set tail [file tail $filename]
  128.   set filename "$dirname/.state.$tail"
  129.   catch {
  130.     set state [j:fileio:read $filename]
  131.     j:tag:set_annotation $t $state
  132.   }
  133. }
  134.  
  135.